Wolfram
Mathematica
9の新機能
◄
戻る
|
次へ
►
Mathematica
9の新機能
›
信頼性
コンポーネント重要度を解析する
異なる重要度尺度によって，系の各コンポーネントの重要度に与えられるインパクトを比較する．
In[1]:=
X
bexpr = Or @@ And @@@ MapIndexed[#1[[;; First[#2]]] &, Array[Subscript[x, #1, #2] &, {5, 5}]];
In[2]:=
X
\[ScriptCapitalR] = ReliabilityDistribution[bexpr, Flatten[MapIndexed[#1[[;; First[#2]]] &, Array[{Subscript[x, #1, #2], ExponentialDistribution[1]} &, {5, 5}]], 1]]; BarChart[{StructuralImportance[\[ScriptCapitalR]], BarlowProschanImportance[\[ScriptCapitalR]], BirnbaumImportance[\[ScriptCapitalR], 1], CriticalityFailureImportance[\[ScriptCapitalR], 1], CriticalitySuccessImportance[\[ScriptCapitalR], 1], ImprovementImportance[\[ScriptCapitalR], 1], RiskAchievementImportance[\[ScriptCapitalR], 1], RiskReductionImportance[\[ScriptCapitalR], 1], FussellVeselyImportance[\[ScriptCapitalR], 1]}, ChartLayout -> "Percentile", BarOrigin -> Left, Ticks -> None, ChartLabels -> {Placed[{StructuralImportance, BarlowProschanImportance, BirnbaumImportance, CriticalityFailureImportance, CriticalitySuccessImportance, ImprovementImportance, RiskAchievementImportance, RiskReductionImportance, FussellVeselyImportance}, Left], None}]
Out[2]=
